home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Readers / Gui4Cli / Docs / Tutorials / Sorter.gc < prev    next >
Text File  |  1997-12-02  |  994b  |  56 lines
  1. G4C
  2.  
  3. ; This script builds a short list from scratch, and, if no such
  4. ; file already exists, saves a copy of the list in RAM:ShortList.
  5. ; You can sort the list, and save a copy of the sorted list as
  6. ; Ram:SortedList.
  7.  
  8. winbig -1 -1 430 100 'Sorter'
  9. wintype 11110001
  10. usetopaz
  11.  
  12. xonload
  13. guiopen Sorter.gc
  14. lvuse Sorter.gc 1
  15.  
  16. ; Does the list already exist? If so, load it in.
  17. ; If not, build it, and save it.
  18. ifexists file RAM:ShortList
  19.     lvchange RAM:ShortList
  20. else
  21.     lvadd 'Monday'
  22.     lvadd 'Tuesday'
  23.     lvadd 'Wednesday'
  24.     lvadd 'Thursday'
  25.     lvadd 'Friday'
  26.     lvadd 'Saturday'
  27.     lvadd 'Sunday'
  28.     lvsave Ram:ShortList
  29. endif
  30.  
  31. xonclose
  32. guiquit Sorter.gc
  33.  
  34. Text 80 4 120 10 'Sorting a list' 20 NOBOX
  35.  
  36. xListView 270 14 130 70 'The list' v '' 0 TXT
  37. gadid 1
  38.  
  39. xButton 30 40 70 12 'Sort It'
  40. lvuse Sorter.gc 1
  41. LVSort ASC
  42.  
  43. xButton 110 40 70 12 'Reload'
  44. lvuse Sorter.gc 1
  45. lvclear
  46. lvchange RAM:ShortList
  47.  
  48. xButton 30 60 190 12 'Save the current list'
  49. lvuse Sorter.gc 1
  50. LVSave 'Ram:SortedList'
  51.  
  52.  
  53.  
  54.  
  55.  
  56.